unit BaseListado;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, XPMan,
  ToolWin, ExtCtrls;

type
//clase que tiene el objeto provincia
  TProvincia = class(TObject)
    codigo: integer;
    descripcion:string;
  end;

  //clase que tiene el objeto localidad
  TLocalidad = class(TObject)
    codigo:integer;
    codigoProvincia:integer;
    descripcion:string;
  end;

  //clase que tiene el objeto condicion de IVA
  TCondicionIva = class(TObject)
    codigo:integer;
    descripcion:string;
  end;

  TTelefono = class(TObject)
    codigo:integer;
    numero:string;
    edicion:integer;
  end;

  TCliente=class(TObject)
    codigo:integer;
    nombre:string;
    apellido:string;
  end;

  TfrmBaseListado = class(TfrmBase)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    btnArriba: TBitBtn;
    btnAbajo: TBitBtn;
    Edit1: TEdit;
    btnBuscar: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    btnAceptar: TBitBtn;
    btnCancelar: TBitBtn;
    procedure btnAceptarClick(Sender: TObject);
    procedure btnCancelarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseListado: TfrmBaseListado;

implementation

{$R *.dfm}

procedure TfrmBaseListado.btnAceptarClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmBaseListado.btnCancelarClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.
